/* GUI CONVERTED from eciq01.p (converter v1.76) Tue Dec 31 10:45:14 2002 */
/* eciq01.p - PCO TEXT INQUIRY                                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.6.1.5 $                                                     */
/*V8:ConvertMode=Report                                                 */
/* REVISION: 7.4      LAST MODIFIED: 10/11/93   BY: pma *H013*          */
/*                    LAST MODIFIED: 10/13/95   BY: ame *H0GF*          */
/* REVISION: 8.6      LAST MODIFIED: 03/25/97   BY: Verghese Kurien *K08S*  */
/* REVISION: 8.6      LAST MODIFIED: 04/01/97   BY: Joe Gawel *K08X*        */
/* REVISION: 8.6      LAST MODIFIED: 10/07/97   BY: mzv *K0M5*              */
/* REVISION: 8.6      LAST MODIFIED: 05/29/98   BY: *K1R7* A.Shobha         */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/14/00   BY: *N0KW* Jacolyn Neder    */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.6.1.5 $    BY: Katie Hilbert        DATE: 12/27/02  ECO: *P0L8*   */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

{ecmtparm.i}

define variable ecd3ref like cmt_ref.
define variable ecmid   like wo_lot.
define variable dbase   like si_db.

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
{ecform03.i}
with frame form03 attr-space side-labels width 80 overlay NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-form03-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame form03 = F-form03-title.
 RECT-FRAME-LABEL:HIDDEN in frame form03 = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame form03 =
  FRAME form03:HEIGHT-PIXELS - RECT-FRAME:Y in frame form03 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME form03 = FRAME form03:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame form03:handle).

find ecm_mstr where recid(ecm_mstr) = ecm_recid no-lock no-error.
if not available (ecm_mstr) then return.

pause 0.
if ecm_cmtindx <> 0 then do:
   for each cmt_det no-lock where cmt_indx = ecm_cmtindx
      with frame form03:
      display
         substring(ecm_nbr,1,8)  @ ecm_nbr
         substring(ecm_nbr,9,8)  @ ecmid
         substring(ecm_nbr,17,8) @ dbase
         cmt_ref                 @ ecd3ref
         ""                      @ ecd3_order
         cmt_seq + 1             @ cmt_seq
         cmt_cmmt
      with frame form03 STREAM-IO /*GUI*/ .
      down.
      
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

   end.
end.


/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/


for each ecd3_det no-lock where ecd3_nbr = ecm_nbr
      by ecd3_order on endkey undo, return with frame form03:
   for each cmt_det no-lock where cmt_indx = ecd3_cmtindx
         on endkey undo, return  with frame form03:
      display
         substring(ecm_nbr,1,8)  @ ecm_nbr
         substring(ecm_nbr,9,8)  @ ecmid
         substring(ecm_nbr,17,8) @ dbase
         ecd3__qad03             @ ecd3ref
         ecd3_order
         cmt_seq + 1             @ cmt_seq
         cmt_cmmt
      with frame form03 STREAM-IO /*GUI*/ .
      down.
      
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

   end.
   
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

end.
hide frame form03.
